home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_234_Rearrange items.bin < prev    next >
Text File  |  1995-11-23  |  2KB  |  80 lines
  1. ItemType: WIND
  2. Rect: 324,238,624,472
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Rearrange items
  8. Params: i0_TopLeft┬i4_Text
  9. Result: i4_Text
  10.  
  11. ItemType: PUSH
  12. Rect: 202,173,274,193
  13. Name: OK
  14. DefaultItem: TRUE
  15. AutoClose: TRUE
  16.  
  17. ItemType: PUSH
  18. Rect: 198,208,278,228
  19. Name: Cancel
  20. CancelItem: TRUE
  21. AutoClose: TRUE
  22.  
  23. ItemType: TEXT
  24. Rect: 6,2,276,18
  25. TextFont: Geneva
  26. TextSize: 10
  27. AutoSize: FALSE
  28. Name: Title
  29. Text: Drag items into desired order or choose a type of sort
  30.  
  31. ItemType: LIST
  32. Rect: 6,18,294,156
  33. TextFont: Geneva
  34. TextSize: 10
  35. AutoSize: FALSE
  36. Name: list
  37. Logic: Drag
  38. Text: 
  39.  
  40. ItemType: RAD
  41. Rect: 99,194,169,207
  42. TextFont: Geneva
  43. TextSize: 10
  44. Name: ascending
  45. Hilite: TRUE
  46.  
  47. ItemType: RAD
  48. Rect: 99,213,174,226
  49. TextFont: Geneva
  50. TextSize: 10
  51. Name: descending
  52.  
  53. ItemType: BOX
  54. Rect: 6,166,181,232
  55. PenSize: 2,2
  56.  
  57. ItemType: RAD
  58. Rect: 21,194,85,207
  59. TextFont: Geneva
  60. TextSize: 10
  61. Name: by name
  62. Hilite: TRUE
  63.  
  64. ItemType: RAD
  65. Rect: 21,213,86,226
  66. TextFont: Geneva
  67. TextSize: 10
  68. Name: by value
  69.  
  70. ItemType: LINE
  71. Rect: 90,196,91,229
  72. Pen: Gray
  73.  
  74. ItemType: PUSH
  75. Rect: 40,172,140,188
  76. TextFont: Geneva
  77. TextSize: 10
  78. AutoSize: FALSE
  79. Name: Sort
  80. Script: get wsGet(wdID,"by name","Hilite")┬put it into byName┬get wsGet(wdID,"ascending","Hilite")┬put it into asc┬get wsGet(wdID,"list","Text")┬put it into tt┬if byName then┬  if asc then┬    wsSet wdID,"list","Text",fullSort(tt,"d=a")┬  else┬    wsSet wdID,"list","Text",fullSort(tt,"d=d")┬  end if┬else -- by value┬  put fld "name2" into nn┬  put stripit(fld "value") into vv┬  if asc then┬    get fullSort(vv,"t=n","d=a")┬  else┬    get fullSort(vv,"t=n","d=d")┬  end if┬  wsSet wdID,"list","Text",fullSort(nn,"d=l")┬end if